
(run-tests
 (list
  (lambda ()
    "Test empty woof program."
    (let* ((code (compile-woof "")))
      (assert-equal? code '((HALT)) msg: "Should be a single halt instruction.")
      ))
  (lambda ()
    "Test integer literal woof program."
    (let* ((code (compile-woof "1")))
      (assert-equal? code '((INTL 1)(HALT)) msg: "Should be an INTL then a HALT.")
      ))
  ))
